Public Class fLogin

    Public Event DoLogin()

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        RaiseEvent DoLogin()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Application.Exit()
    End Sub

    Private Sub fLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        txtServer.Text = Main.iniConfig.GetString("DBLOGIN", "SERVER", "")
        txtLogin.Text = Main.iniConfig.GetString("DBLOGIN", "LOGIN", "")
        txtPassword.Text = Main.iniConfig.GetString("DBLOGIN", "PASSWORD", "")

    End Sub


End Class
